home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1998 November / MAC100-1998-11.ISO.7z / MAC100-1998-11.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / ﾕｰﾃｨﾘﾃｨ / Mops 3.2.sea / Mops 3.2 / Mops ƒ / testmod.txt < prev    next >
Text File  |  1997-12-10  |  659b  |  40 lines
  1. +echo
  2. ¥ Some silly code to test our module stuff:
  3.  
  4. : AA    ." AA calling: "  qq  ;
  5.  
  6. : BB    db  ." BB here.  "  aa  ;  immediate
  7.  
  8. 999    value    myVal
  9.     int        myInt
  10.  
  11. : CC
  12.     ." CC calling. myVal is " myVal . cr
  13.     23 put: myInt  get: myInt . cr  ¥ print: [ myInt ]
  14.     postpone bb
  15. ;
  16.  
  17. : DD  1 2 3 ;
  18.  
  19.  
  20. false -> CASE_IN_NAMES?
  21.  
  22. : aWord        false -> CASE_IN_NAMES?  ;
  23.  
  24.  
  25. :class export_class super{ object }
  26.     int    II
  27.     int    JJ
  28.  
  29. :m AA:    ." AA method calling!"  ;m
  30. :m BB:    ." BB method here.  " aa: self  ;m
  31. :m CC:
  32.     db  ." CC method calling. " bb: self cr
  33.     ." jj should be 66, and is " get: jj .  cr  ;m
  34.         
  35. :m classinit:    ." classinit: here!"  77 put: ii  66 put: jj  ;m
  36.  
  37. ;class
  38.  
  39. export_class EE
  40.